home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / ButtonStax.cpt / Great Buttons / card_2847.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  75 lines
  1. -- card: 2847 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2667
  5. -- name: 
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11. -- part 11 (button)
  12. -- low flags: 00
  13. -- high flags: 0000
  14. -- rect: left=238 top=210 right=225 bottom=281
  15. -- title width / last selected line: 0
  16. -- icon id / first selected line: 0 / 0
  17. -- text alignment: 1
  18. -- font id: 0
  19. -- text size: 12
  20. -- style flags: 0
  21. -- line height: 16
  22. -- part name: Magic Cursor
  23. ----- HyperTalk script -----
  24. on mouseUp
  25.   answer "What a cursor!" with "OK"
  26. end mouseUp
  27.  
  28. on mouseWithin
  29.   repeat while mousein () = true
  30.     set the cursor to 3
  31.   end repeat
  32. end mouseWithin
  33.  
  34. function mousein
  35. --this function was conceived by Dave Edmondson
  36. if the mouseH >= item 1 of the rect of button "Magic Cursor" and the mouseH <= item 3 of the rect of button "Magic Cursor" and the mouseV >= item 2 of the rect of button "Magic Cursor" and the mouseV <= item 4 of the rect of button "Magic Cursor" then
  37.   return true
  38. else return false
  39. end mousein
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46. -- part 18 (button)
  47. -- low flags: 00
  48. -- high flags: A000
  49. -- rect: left=114 top=236 right=278 bottom=188
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 1015 / 1015
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Great Buttons
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   go to stack "Great Buttons"
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part contents for background part 6
  66. ----- text -----
  67. Place the cursor over the word ‚Äúhere‚Äù and watch the cursor change.
  68.  
  69. -- part contents for background part 11
  70. ----- text -----
  71. This is a public domain stack from Maurice Volaski (29 Callodine Ave. Amherst, NY 14226-3125). 
  72. It is a demonstration of buttons with various scripts.
  73. Have Fun.
  74. This info box will self-destruct in 15 seconds.
  75. It has been seconds so far.